home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / WWW / MiamiSSL211 / Install_MiamiSSL < prev    next >
Encoding:
Text File  |  1999-12-03  |  3.9 KB  |  163 lines
  1. ; $VER: Install_MiamiSSL 2.11 (12.05.99)
  2. (procedure check-system-version
  3.  (set exec-version (/ (getversion) 65536))
  4.  (if (< exec-version 37)
  5.   (abort "MiamiSSL needs Kickstart 2.04 or higher.\n")
  6.  )
  7.  (if (< #exec-version 39)
  8.   (set #ag-browser "AmigaGuide")
  9.   (set #ag-browser "MultiView")
  10.  )
  11. )
  12.  
  13. (procedure select-destination-directory
  14.  (set @default-dest "Miami:")
  15. )
  16.  
  17. (procedure select-lib
  18.  (set lib-choice
  19.   (askchoice
  20.    (prompt "Please select which version of\nthe encryption library you want to use:")
  21.    (help "There are two MiamiSSL encryption,one\nfor users within the USA/Canada and one\n"
  22.     "for all other users.")
  23.    (choices "US/Canadian version" "International version")
  24.   )
  25.  )
  26. )
  27.  
  28. (procedure check-registered
  29.  (set is-registered (exists (tackon @default-dest "Miami.key2")))
  30.  (if (not is-registered)
  31.   (abort "MiamiSSL needs the registered version of Miami 2.1 or higher")
  32.  )
  33. )
  34.  
  35. (procedure check-library
  36.  (set bin-choice
  37.   (select lib-choice
  38.    "miamisslusa.library"
  39.    "miamisslintl.library"
  40.   )
  41.  )
  42.  (if (not (exists (tackon @default-dest (cat "Libs/orig" bin-choice))))
  43.   (abort "Before you can install MiamiSSL you first need to\n"
  44.    "get one of the encryption library. Please see the\n"
  45.    "included README_ssl.txt file for more information.")
  46.  )
  47. )
  48.  
  49. (procedure copy-files
  50.   (if (not (exists (tackon @default-dest "Libs")))
  51.    (makedir (tackon @default-dest "Libs"))
  52.   )
  53.   (if (exists (tackon @default-dest (cat "Libs/" bin-choice)))
  54.    (delete (tackon @default-dest (cat "Libs/" bin-choice)) force)
  55.   )
  56.   (select lib-choice
  57.    (
  58.     (run (cat "\"" (tackon source-dir "xpatch") "\" Miami:libs/origmiamisslusa.library \""
  59.      (tackon source-dir "miamisslusa.xpch") "\" Miami:libs/miamisslusa.library"))
  60.    )
  61.    (
  62.     (run (cat "\"" (tackon source-dir "xpatch") "\" Miami:libs/origmiamisslintl.library \""
  63.      (tackon source-dir "miamisslintl.xpch") "\" Miami:libs/miamisslintl.library"))
  64.    )
  65.   )
  66.   (if (not (exists (tackon @default-dest "SSL")))
  67.    (makedir (tackon @default-dest "SSL"))
  68.   )
  69.   (if (not (exists (tackon @default-dest "SSL/v2certs")))
  70.    (makedir (tackon @default-dest "SSL/v2certs"))
  71.   )
  72.   (if (not (exists (tackon @default-dest "SSL/lib")))
  73.    (makedir (tackon @default-dest "SSL/lib"))
  74.   )
  75.   (if (not (exists (tackon @default-dest "SSL/private")))
  76.    (makedir (tackon @default-dest "SSL/private"))
  77.   )
  78.   (copyfiles
  79.    (source (tackon source-dir "certs"))
  80.    (dest (tackon @default-dest "SSL/v2certs"))
  81.    (all)
  82.   )
  83.   (copyfiles
  84.    (source (tackon source-dir "ssl.config"))
  85.    (dest (tackon @default-dest "SSL/lib"))
  86.   )
  87.   (copyfiles
  88.    (source (tackon source-dir "MiamiSSLCiphers"))
  89.    (dest @default-dest)
  90.   )
  91.   (copyfiles
  92.    (source (tackon source-dir "MiamiSSLClient"))
  93.    (dest @default-dest)
  94.   )
  95.   (copyfiles
  96.    (source (tackon source-dir "MiamiSSLVersion"))
  97.    (dest @default-dest)
  98.   )
  99.   (copyfiles
  100.    (source (tackon source-dir "MiamiSSLIDEA"))
  101.    (dest @default-dest)
  102.   )
  103.   (copyfiles
  104.    (source (tackon source-dir "MiamiSSLUSAArcFour"))
  105.    (dest @default-dest)
  106.   )
  107.   (copyfiles
  108.    (source (tackon source-dir "MiamiSSL.guide"))
  109.    (dest @default-dest)
  110.   )
  111.   (copyfiles
  112.    (source (tackon source-dir "MiamiSSL.guide.info"))
  113.    (dest @default-dest)
  114.   )
  115.   (tooltype
  116.    (dest (tackon @default-dest "MiamiSSL.guide"))
  117.    (noposition)
  118.    (setdefaulttool #ag-browser)
  119.   )
  120.   (if (not (exists "ENV:MIAMI"))
  121.    (makedir "ENV:MIAMI")
  122.   )
  123.   (if (not (exists "ENVARC:MIAMI"))
  124.    (makedir "ENVARC:MIAMI")
  125.   )
  126.   (textfile
  127.    (dest "ENV:MIAMI/SSLLIB")
  128.    (append (tackon @default-dest (tackon "Libs/" bin-choice)))
  129.   )
  130.   (copyfiles
  131.    (source "ENV:MIAMI/SSLLIB")
  132.    (dest "ENVARC:MIAMI")
  133.   )
  134. )
  135.  
  136. ;;;; Start
  137.  
  138. (welcome "Welcome to the MiamiSSL installation.\n")
  139.  
  140. (set app-name "MiamiSSL")
  141.  
  142. (check-system-version)
  143.  
  144. (complete 0)
  145.  
  146. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  147.  (expandpath @icon))
  148. )
  149.  
  150. (select-destination-directory)
  151.  
  152. (check-registered)
  153.  
  154. (select-lib)
  155.  
  156. (check-library)
  157.  
  158. (complete 75)
  159.  
  160. (copy-files)
  161.  
  162. (complete 100)
  163.